

Sub 湤() 
    'ChDir "C:\Users\zyg365\Desktop" 'ڱУChDir˼ǡchange directoryڸı䵱ǰĿ¼ĺλĬϵĹĿ¼

     'һԲҪֱһ
    ActiveWorkbook.SaveAs Filename:="C:\Users\zyg365\Desktop\123.xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
End Sub
